%@LANGUAGE="VBSCRIPT"%>
<%
Response.Redirect "http://iabsp.org.br/index.php/concursos/"
%>
<% pagina = "concursos"%>
<%
Dim ID
ID = "0"
If (Request.QueryString("ID") <> "") Then
ID = Request.QueryString("ID")
End If
%>
<%
Dim Concurso
Dim Concurso_numRows
Set Concurso = Server.CreateObject("ADODB.Recordset")
Concurso.ActiveConnection = MM_iabsp_STRING
Concurso.Source = "SELECT ID_Concurso, Str_Imagem_Grande, Str_Nome, Str_Resumo, Str_Link, V_Consulta, V_Inscricao, V_Regulamento FROM concurso WHERE ID_Concurso = " + Replace(ID, "'", "''") + ""
Concurso.CursorType = 0
Concurso.CursorLocation = 2
Concurso.LockType = 1
Concurso.Open()
Concurso_numRows = 0
%>
<%
Dim Resultado
Dim Resultado_numRows
Set Resultado = Server.CreateObject("ADODB.Recordset")
Resultado.ActiveConnection = MM_iabsp_STRING
Resultado.Source = "SELECT int_Ordem, str_Imagem, str_Texto FROM concurso_resultado WHERE ID_Concurso = " + Replace(ID, "'", "''") + " ORDER BY int_Ordem ASC"
Resultado.CursorType = 0
Resultado.CursorLocation = 2
Resultado.LockType = 1
Resultado.Open()
Resultado_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Resultado_numRows = Resultado_numRows + Repeat1__numRows
%>
Instituto de Arquitetos do Brasil - Departamento de São Paulo
|
|
|
<%=(Concurso.Fields.Item("Str_Nome").Value)%> |
|
<% imagem_grande =(Concurso.Fields.Item("Str_Imagem_Grande").Value)%><%if imagem_grande & "a"<>"a" then%>
|
<%end if%>
|
<% If Not Resultado.EOF Or Not Resultado.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT Resultado.EOF))
%>
<% imagem =(Resultado.Fields.Item("str_Imagem").Value)%> <%if imagem&"a"<>"a" then%>
<%end if%> |
|
<%= replace((Resultado.Fields.Item("str_Texto").Value),chr(13)," ")%> |
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Resultado.MoveNext()
Wend
%><%else%>
<%= replace ((Concurso.Fields.Item("Str_Resumo").Value),chr(13), " ")%> |
|
veja mais |
<%if (Concurso.Fields.Item("Str_Link").Value)&"a" <> "a" then %>
<%link=(Concurso.Fields.Item("Str_Link").Value)%>
<%=link%> |
<% end if%>
<%if (Concurso.Fields.Item("V_Regulamento").Value) = 1 then %>
Regulamento |
<% end if%>
<%if (Concurso.Fields.Item("V_Inscricao").Value) = 1 then %>
Inscrição |
<% end if%>
<%if (Concurso.Fields.Item("V_Consulta").Value) = 1 then %>
Consultas |
<% end if%>
|
|
<% End If ' end Not Resultado.EOF Or NOT Resultado.BOF %>
|
|
|
|
|
|
|
|
<%
Concurso.Close()
Set Concurso = Nothing
%>
<%
Resultado.Close()
Set Resultado = Nothing
%>